home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Create Sho25979952001.psc / Forms / Form1.frm (.txt)
Encoding:
Visual Basic Form  |  2001-09-06  |  3.0 KB  |  94 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Shortcut Maker"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   6360
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2715
  13.    ScaleWidth      =   6360
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin VB.CommandButton Command2 
  17.       Caption         =   "Quit"
  18.       Height          =   375
  19.       Left            =   120
  20.       TabIndex        =   7
  21.       Top             =   2280
  22.       Width           =   975
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "Create Shortcut"
  26.       Height          =   375
  27.       Left            =   4920
  28.       TabIndex        =   6
  29.       Top             =   2280
  30.       Width           =   1335
  31.    End
  32.    Begin VB.Frame Frame3 
  33.       Caption         =   "Step 1 - Enter the filename of the link (eg ""Shortcut To Notepad"")"
  34.       Height          =   615
  35.       Left            =   120
  36.       TabIndex        =   4
  37.       Top             =   1560
  38.       Width           =   6135
  39.       Begin VB.TextBox TxtName 
  40.          Height          =   285
  41.          Left            =   120
  42.          TabIndex        =   5
  43.          Text            =   "Shortcut To Notepad"
  44.          Top             =   240
  45.          Width           =   5895
  46.       End
  47.    End
  48.    Begin VB.Frame Frame2 
  49.       Caption         =   "Step 2 - Enter the folder you want the link to display in (eg ""C:\windows\desktop"")"
  50.       Height          =   615
  51.       Left            =   120
  52.       TabIndex        =   2
  53.       Top             =   840
  54.       Width           =   6135
  55.       Begin VB.TextBox TxtFolder 
  56.          Height          =   285
  57.          Left            =   120
  58.          TabIndex        =   3
  59.          Text            =   "C:\windows\desktop"
  60.          Top             =   240
  61.          Width           =   5895
  62.       End
  63.    End
  64.    Begin VB.Frame Frame1 
  65.       Caption         =   "Step 1 - Enter the file/folder you wish to link to (eg ""C:\windows\notepad.exe"")"
  66.       Height          =   615
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   120
  70.       Width           =   6135
  71.       Begin VB.TextBox TxtFile 
  72.          Height          =   285
  73.          Left            =   120
  74.          TabIndex        =   1
  75.          Text            =   "C:\windows\notepad.exe"
  76.          Top             =   240
  77.          Width           =   5895
  78.       End
  79.    End
  80. Attribute VB_Name = "Form1"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Private Sub Command1_Click()
  86. If CreateFileShortcut(TxtFile, TxtFolder, TxtName, hwnd) = True Then
  87.   MsgBox "Created Successfully!", vbInformation
  88.   MsgBox "Couln't Create Link", vbCritical
  89. End If
  90. End Sub
  91. Private Sub Command2_Click()
  92. Unload Me
  93. End Sub
  94.